home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / BOX.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  557 b   |  19 lines
  1. 10 SCREEN 2,0,0:KEY OFF:CLS
  2. 20 FOR X=0 TO 320 STEP 10
  3. 30 LINE (.6*X,.4*X)-(X,.4*X)
  4. 40 LINE (.6*X,.6*X)-(X,.6*X)
  5. 50 LINE (.6*X,.4*X)-(.6*X,.6*X)
  6. 60 LINE (X,.4*X)-(X,.6*X)
  7. 70 LINE (.8*X,.3*X)-(1.2*X,.3*X)
  8. 80 LINE (.8*X,.5*X)-(1.2*X,.5*X)
  9. 90 LINE (.8*X,.3*X)-(.8*X,.5*X)
  10. 100 LINE (1.2*X,.3*X)-(1.2*X,.5*X)
  11. 110 LINE (.6*X,.4*X)-(.8*X,.3*X)
  12. 120 LINE (X,.4*X)-(1.2*X,.3*X)
  13. 130 LINE (.6*X,.6*X)-(.8*X,.5*X)
  14. 140 LINE (X,.6*X)-(1.2*X,.5*X)
  15. 150 FOR C=1 TO 200:NEXT:CLS:NEXT
  16. 160 IF INKEY$=CHR$(27) THEN 180
  17. 170 GOTO 10
  18. 180 SCREEN 0,0,0:WIDTH 80:END
  19.